home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / a3ddem1a / view.frm < prev    next >
Text File  |  1999-09-23  |  2KB  |  84 lines
  1. VERSION 5.00
  2. Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX"
  3. Begin VB.Form View 
  4.    Appearance      =   0  'Flat
  5.    AutoRedraw      =   -1  'True
  6.    BackColor       =   &H00000000&
  7.    BorderStyle     =   0  'None
  8.    Caption         =   "Form1"
  9.    ClientHeight    =   9000
  10.    ClientLeft      =   -14940
  11.    ClientTop       =   240
  12.    ClientWidth     =   12000
  13.    DrawWidth       =   4
  14.    Enabled         =   0   'False
  15.    LinkTopic       =   "Form1"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   600
  19.    ScaleMode       =   3  'Pixel
  20.    ScaleWidth      =   800
  21.    ShowInTaskbar   =   0   'False
  22.    Begin PicClip.PictureClip RotBMap 
  23.       Left            =   0
  24.       Top             =   1200
  25.       _ExtentX        =   5080
  26.       _ExtentY        =   10160
  27.       _Version        =   327680
  28.       Rows            =   6
  29.       Cols            =   3
  30.       Picture         =   "View.frx":0000
  31.    End
  32.    Begin VB.PictureBox Display 
  33.       Appearance      =   0  'Flat
  34.       BackColor       =   &H00000000&
  35.       BorderStyle     =   0  'None
  36.       ForeColor       =   &H80000008&
  37.       Height          =   9000
  38.       Left            =   0
  39.       ScaleHeight     =   600
  40.       ScaleMode       =   3  'Pixel
  41.       ScaleWidth      =   800
  42.       TabIndex        =   0
  43.       Top             =   0
  44.       Width           =   12000
  45.       Begin VB.Timer Timer1 
  46.          Interval        =   20
  47.          Left            =   1080
  48.          Top             =   0
  49.       End
  50.       Begin VB.PictureBox RotB 
  51.          AutoRedraw      =   -1  'True
  52.          AutoSize        =   -1  'True
  53.          BorderStyle     =   0  'None
  54.          ClipControls    =   0   'False
  55.          Height          =   1215
  56.          Left            =   0
  57.          ScaleHeight     =   1215
  58.          ScaleWidth      =   1095
  59.          TabIndex        =   1
  60.          Top             =   0
  61.          Width           =   1095
  62.       End
  63.    End
  64. End
  65. Attribute VB_Name = "View"
  66. Attribute VB_GlobalNameSpace = False
  67. Attribute VB_Creatable = False
  68. Attribute VB_PredeclaredId = True
  69. Attribute VB_Exposed = False
  70. Public PicFrame As Integer
  71.  
  72. Private Sub Form_Load()
  73.  
  74. View.Top = 0
  75. View.Left = 0
  76. Remote.Show
  77. End Sub
  78.  
  79. Private Sub Timer1_Timer()
  80. RotB.Picture = RotBMap.GraphicCell(PicFrame)
  81. PicFrame = PicFrame + 1
  82. If PicFrame > 17 Then PicFrame = 0
  83. End Sub
  84.